home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / SPEED.READING.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  77 lines
  1. 1  REM  ******************
  2. 2  REM  *  SPEED  READING
  3. 3  REM  * 
  4. 4  REM  *  COPYRIGHT 1986
  5. 5  REM  *  
  6. 6  REM  *  PHIL SHAPIRO
  7. 7  REM  * 
  8. 8  REM  *******************
  9. 10  HOME 
  10. 12  FOR D = 1 TO 2000: NEXT D
  11. 14  SPEED= 60
  12. 15  PRINT : PRINT 
  13. 16  VTAB 8: HTAB 12: PRINT "SPEED  READING"
  14. 18  FOR D = 1 TO 1000: NEXT D: GOSUB 2000
  15. 19  HOME : SPEED= A: PRINT : PRINT 
  16. 20  PRINT "MUCH TALK HAS GONE ON IN CERTAIN CIRCLES"
  17. 30  FOR D = 1 TO 75: NEXT D: PRINT 
  18. 40  PRINT "ABOUT THE MERITS OF SPEED READING."
  19. 50  FOR D = 1 TO 60: NEXT D: PRINT 
  20. 60  PRINT "SOME CLAIM THAT THE CAPABILITY OF"
  21. 61  FOR D = 1 TO 25: NEXT D: PRINT 
  22. 62  PRINT "READING AT FAST SPEEDS IS NOT ONLY"
  23. 63  FOR D = 1 TO 40: NEXT D: PRINT 
  24. 64  PRINT "MORE EFFICIENT; MORE IMPORTANTLY,"
  25. 65  FOR D = 1 TO 100: NEXT D: PRINT 
  26. 66  PRINT "SPEED READING IS MORE FUN."
  27. 68  FOR D = 1 TO 100: NEXT D: PRINT 
  28. 70  PRINT "IF YOU WERE AT A COCKTAIL PARTY,"
  29. 71  FOR D = 1 TO 35: NEXT D: PRINT 
  30. 72  PRINT "WOULD YOU RATHER LISTEN TO SOMEONE"
  31. 73  FOR D = 1 TO 60: NEXT D: PRINT 
  32. 74  PRINT "WHO SPOKE LIKE THIS: "
  33. 80  FOR D = 1 TO 120: NEXT D
  34. 100  HOME : SPEED= B
  35. 110  FOR D = 1 TO 150: NEXT D
  36. 115  PRINT : PRINT 
  37. 120  PRINT " 'THE OTHER DAY I WAS WALKING DOWN THE"
  38. 121  PRINT 
  39. 122  FOR D = 1 TO 50: NEXT D
  40. 123  PRINT "STREET IN THE MID-AFTERNOON WHEN THE  "
  41. 124  FOR D = 1 TO 50: NEXT D
  42. 125  PRINT 
  43. 126  PRINT "MOST AMAZING THING HAPPENED TO ME.'"
  44. 130  FOR D = 1 TO 400: NEXT D
  45. 140  PRINT : SPEED= A
  46. 145  PRINT : PRINT 
  47. 150  PRINT "OR, WOULD YOU RATHER SPEND TIME"
  48. 152  PRINT 
  49. 154  PRINT "WITH SOMEONE WHO TALKED LIKE THIS: "
  50. 160  FOR D = 1 TO 160: NEXT D
  51. 170  HOME : SPEED= A +30
  52. 180  FOR D = 1 TO 150: NEXT D
  53. 185  PRINT : PRINT 
  54. 190  PRINT " 'THE OTHER DAY I WAS WALKING DOWN THE"
  55. 191  FOR D = 1 TO 50: NEXT D: PRINT 
  56. 192  PRINT "STREET IN THE MID-AFTERNOON WHEN THE  "
  57. 194  FOR D = 1 TO 50: NEXT D
  58. 195  PRINT : PRINT "MOST AMAZING THING HAPPENED TO ME...' "
  59. 200  FOR D = 1 TO 350: NEXT D
  60. 205  PRINT : PRINT 
  61. 210  PRINT : PRINT "LADIES AND GENTLEMEN OF THE JURY,"
  62. 215  FOR D = 1 TO 300: NEXT D
  63. 220  PRINT : PRINT "I REST MY CASE."
  64. 230  FOR D = 1 TO 2000: NEXT D
  65. 240  PRINT : PRINT : PRINT : PRINT "(C) COPYRIGHT OCT. 1986    PHIL SHAPIRO"
  66. 250  END 
  67. 2000  VTAB 12: PRINT "PLEASE CHOOSE A SPEED OF DISPLAY:"
  68. 2010  FOR D = 1 TO 200: NEXT D
  69. 2020  VTAB 14: PRINT "(TYPE IN ONE OF THE NUMBERS.)
  70. 2030  VTAB 16: HTAB 20: PRINT "1. SLOW"
  71. 2040  VTAB 18: HTAB 20: PRINT "2. MEDIUM"
  72. 2050  VTAB 20: HTAB 20: PRINT "3. FAST"
  73. 2060  VTAB 22: GET CH
  74. 2070  IF CH = 1  THEN A = 20:B = 0: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  75. 2080  IF CH = 2  THEN A = 70:B = 20: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  76. 2090  IF CH = 3  THEN A = 110:B = 30: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  77. 2100  GOTO 2060